home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / GEN.DCR / 00579.ls < prev    next >
Encoding:
Text File  |  1998-12-02  |  1.3 KB  |  64 lines
  1. on enterFrame
  2.   global ActiveHZone
  3.   set ActiveHZone to "1"
  4.   set ro to rollOver()
  5.   set thereIsRoll to 0
  6.   if (ro >= 45) and (ro <= 51) then
  7.     set thereIsRoll to 1
  8.     cursor([member "mousePointer", member "mousePointerMask"])
  9.   end if
  10.   if ro = 4 then
  11.     set thereIsRoll to 1
  12.     cursor([member "mousePointer", member "mousePointerMask"])
  13.   end if
  14.   if thereIsRoll = 0 then
  15.     cursor(-1)
  16.   end if
  17.   updateStage()
  18. end
  19.  
  20. on exitFrame
  21.   set ro to rollOver()
  22.   case ro of
  23.     30:
  24.       initSprites()
  25.       puppetSprite(1, 1)
  26.       puppetSprite(2, 1)
  27.       puppetSprite(3, 1)
  28.       go("OrdinateurVOnLogo1")
  29.     31:
  30.       initSprites()
  31.       puppetSprite(1, 1)
  32.       puppetSprite(2, 1)
  33.       puppetSprite(3, 1)
  34.       go("OrdinateurVOnLogo2")
  35.     32:
  36.       initSprites()
  37.       puppetSprite(1, 1)
  38.       puppetSprite(2, 1)
  39.       puppetSprite(3, 1)
  40.       go("OrdinateurVOnLogo3")
  41.     33:
  42.       initSprites()
  43.       puppetSprite(1, 1)
  44.       puppetSprite(2, 1)
  45.       puppetSprite(3, 1)
  46.       go("OrdinateurVOnLogo4")
  47.     34:
  48.       initSprites()
  49.       puppetSprite(1, 1)
  50.       puppetSprite(2, 1)
  51.       puppetSprite(3, 1)
  52.       go("OrdinateurVOnLogo5")
  53.     otherwise:
  54.       go(the frame)
  55.   end case
  56. end
  57.  
  58. on mouseUp
  59.   cursor(-1)
  60.   initSprites()
  61.   playThisSound("hyplien2", 4)
  62.   go("OrdinateurS1")
  63. end
  64.